home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc19 / gemfsc19.lzh / GEMFBIND / AESOBJC1.S < prev    next >
Text File  |  1993-03-10  |  1KB  |  59 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Object Library routines 1 of 2.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; objc_add
  17. ; objc_delete
  18. ; objc_draw
  19. ; objc_find
  20. ; objc_order
  21. ; objc_change
  22. ;-------------------------------------------------------------------------
  23.  
  24.           globl     _objc_add
  25. _objc_add:
  26.           move.l    #$28020101,d0       ; AControl  40,2,1,1
  27.           bra.b     objc_do
  28.           globl     _objc_delete
  29. _objc_delete:
  30.           move.l    #$29010101,d0       ; AControl  41,1,1,1
  31.           bra.b     objc_do
  32.           globl     _objc_draw
  33. _objc_draw:
  34.           move.l    #$2A060101,d0       ; AControl  42,6,1,1
  35.           bra.b     objc_do
  36.           globl     _objc_find
  37. _objc_find:
  38.           move.l    #$2B040101,d0       ; AControl  43,4,1,1
  39.           bra.b     objc_do
  40.           globl     _objc_order
  41. _objc_order:
  42.           move.l    #$2D020101,d0       ; AControl  45,2,1,1
  43.           bra.b     objc_do
  44.           globl     _objc_change
  45. _objc_change:
  46.           move.l    #$2F080101,d0       ; AControl  47,8,1,1
  47. objc_do:
  48. ;          .cargs    #4,ptree.l,intin
  49.  
  50. ptree            =    4
  51. intin            =    8
  52.  
  53.           lea        intin(sp),a1       ; -> intin
  54.           lea        ptree(sp),a0       ; -> addrin
  55.           jmp        aes_do
  56.  
  57. ;          end of source
  58.  
  59.